/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_3 / issue07 / prime / primes3

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 10 20 f4 20 3e | 20 50 72 69 6d 65 73 33 |.... . >| Primes3|
|00000010| 0d 00 14 04 0d 00 1e 1b | 20 e8 20 22 4e 55 4d 42 |........| . "NUMB|
|00000020| 45 52 20 3f 20 22 20 52 | 65 71 75 65 73 74 25 0d |ER ? " R|equest%.|
|00000030| 00 28 04 0d 00 32 08 20 | d1 3d 30 0d 00 3c 2a 20 |.(...2. |.=0..<* |
|00000040| de 20 4b 6e 6f 77 6e 50 | 72 69 6d 65 25 28 35 29 |. KnownP|rime%(5)|
|00000050| 20 3a 20 f4 20 57 65 20 | 64 6f 20 6b 6e 6f 77 20 | : . We |do know |
|00000060| 61 20 66 65 77 0d 00 46 | 15 20 4b 6e 6f 77 6e 50 |a few..F|. KnownP|
|00000070| 72 69 6d 65 25 28 31 29 | 3d 32 0d 00 50 15 20 4b |rime%(1)|=2..P. K|
|00000080| 6e 6f 77 6e 50 72 69 6d | 65 25 28 32 29 3d 33 0d |nownPrim|e%(2)=3.|
|00000090| 00 5a 15 20 4b 6e 6f 77 | 6e 50 72 69 6d 65 25 28 |.Z. Know|nPrime%(|
|000000a0| 33 29 3d 35 0d 00 64 15 | 20 4b 6e 6f 77 6e 50 72 |3)=5..d.| KnownPr|
|000000b0| 69 6d 65 25 28 34 29 3d | 37 0d 00 6e 16 20 4b 6e |ime%(4)=|7..n. Kn|
|000000c0| 6f 77 6e 50 72 69 6d 65 | 25 28 35 29 3d 31 31 0d |ownPrime|%(5)=11.|
|000000d0| 00 78 04 0d 00 82 13 20 | e7 20 52 65 71 75 65 73 |.x..... |. Reques|
|000000e0| 74 25 3c 36 20 8c 0d 00 | 8c 15 20 20 20 e7 20 52 |t%<6 ...|..   . R|
|000000f0| 65 71 75 65 73 74 25 3c | 31 20 8c 0d 00 96 2e 20 |equest%<|1 ..... |
|00000100| 20 20 20 20 f1 20 22 50 | 72 69 6d 65 28 22 3b 52 |    . "P|rime(";R|
|00000110| 65 71 75 65 73 74 25 3b | 22 29 20 69 73 20 55 6e |equest%;|") is Un|
|00000120| 64 65 66 69 6e 65 64 2e | 22 0d 00 a0 08 20 20 20 |defined.|"....   |
|00000130| cc 0d 00 aa 3a 20 20 20 | 20 20 f1 20 22 50 72 69 |....:   |  . "Pri|
|00000140| 6d 65 28 22 3b 52 65 71 | 75 65 73 74 25 3b 22 29 |me(";Req|uest%;")|
|00000150| 20 69 73 20 22 3b 4b 6e | 6f 77 6e 50 72 69 6d 65 | is ";Kn|ownPrime|
|00000160| 25 28 52 65 71 75 65 73 | 74 25 29 0d 00 b4 08 20 |%(Reques|t%).... |
|00000170| 20 20 cd 0d 00 be 06 20 | cc 0d 00 c8 3e 20 20 20 |  ..... |....>   |
|00000180| 50 72 69 6d 65 73 25 20 | 3d 20 52 65 71 75 65 73 |Primes% |= Reques|
|00000190| 74 25 2a 31 36 20 3a 20 | f4 20 61 70 72 6f 78 20 |t%*16 : |. aprox |
|000001a0| 31 2f 31 35 2b 20 6e 75 | 6d 62 65 72 73 20 61 72 |1/15+ nu|mbers ar|
|000001b0| 65 20 70 72 69 6d 65 0d | 00 d2 19 20 20 20 f1 20 |e prime.|...   . |
|000001c0| 22 49 6e 69 74 69 61 6c | 69 7a 65 20 2e 2e 2e 22 |"Initial|ize ..."|
|000001d0| 0d 00 dc 16 20 20 20 f2 | 69 6e 69 74 69 61 6c 69 |....   .|initiali|
|000001e0| 7a 65 62 69 74 73 0d 00 | e6 04 0d 00 f0 38 20 20 |zebits..|.....8  |
|000001f0| 20 f4 20 63 61 6e 74 20 | 63 6c 65 61 72 20 70 72 | . cant |clear pr|
|00000200| 69 6d 65 73 20 32 2c 33 | 2c 35 2c 37 20 6f 72 20 |imes 2,3|,5,7 or |
|00000210| 31 31 20 62 69 74 73 20 | 64 6f 6e 74 20 65 78 69 |11 bits |dont exi|
|00000220| 73 74 0d 00 fa 04 0d 01 | 04 18 20 20 20 f1 20 22 |st......|..   . "|
|00000230| 43 61 6c 63 75 6c 61 74 | 65 20 2e 2e 2e 22 0d 01 |Calculat|e ..."..|
|00000240| 0e 0c 20 20 20 49 25 3d | 31 33 0d 01 18 17 20 20 |..   I%=|13....  |
|00000250| 20 c8 95 20 49 25 3c b6 | 28 50 72 69 6d 65 73 25 | .. I%<.|(Primes%|
|00000260| 29 0d 01 22 0d 20 20 20 | 20 20 f1 20 49 25 0d 01 |)..".   |  . I%..|
|00000270| 2c 28 20 20 20 20 20 4a | 25 3d a4 70 72 65 76 70 |,(     J|%=.prevp|
|00000280| 72 69 6d 65 70 6c 75 73 | 28 50 72 69 6d 65 73 25 |rimeplus|(Primes%|
|00000290| 20 81 20 49 25 29 0d 01 | 36 12 20 20 20 20 20 c8 | . I%)..|6.     .|
|000002a0| 95 20 4a 25 3e 3d 49 25 | 0d 01 40 19 20 20 20 20 |. J%>=I%|..@.    |
|000002b0| 20 20 20 f2 63 6c 72 62 | 69 74 28 4a 25 2a 49 25 |   .clrb|it(J%*I%|
|000002c0| 29 0d 01 4a 1c 20 20 20 | 20 20 20 20 4a 25 3d a4 |)..J.   |    J%=.|
|000002d0| 70 72 65 76 70 72 69 6d | 65 28 4a 25 29 0d 01 54 |prevprim|e(J%)..T|
|000002e0| 0a 20 20 20 20 20 ce 0d | 01 5e 1c 20 20 20 20 20 |.     ..|.^.     |
|000002f0| 49 25 20 3d 20 a4 6e 65 | 78 74 70 72 69 6d 65 28 |I% = .ne|xtprime(|
|00000300| 49 25 29 0d 01 68 08 20 | 20 20 ce 0d 01 72 04 0d |I%)..h. |  ...r..|
|00000310| 01 7c 3f 20 20 20 f2 63 | 6c 72 62 69 74 28 31 29 |.|?   .c|lrbit(1)|
|00000320| 20 3a 20 f4 20 63 6c 65 | 61 72 20 31 20 6c 61 73 | : . cle|ar 1 las|
|00000330| 74 20 61 73 20 69 74 20 | 70 72 6f 74 65 63 74 73 |t as it |protects|
|00000340| 20 50 52 4f 43 70 72 65 | 76 70 72 69 6d 65 0d 01 | PROCpre|vprime..|
|00000350| 86 04 0d 01 90 1a 20 20 | 20 f1 20 22 53 68 6f 77 |......  | . "Show|
|00000360| 20 52 65 73 75 6c 74 20 | 2e 2e 2e 22 0d 01 9a 0b | Result |..."....|
|00000370| 20 20 20 50 25 3d 35 0d | 01 a4 2c 20 20 20 57 6f |   P%=5.|..,   Wo|
|00000380| 72 64 73 25 20 3d 20 28 | 28 50 72 69 6d 65 73 25 |rds% = (|(Primes%|
|00000390| 20 81 20 32 33 31 30 29 | 20 2a 20 34 38 30 29 20 | . 2310)| * 480) |
|000003a0| 81 20 38 0d 01 ae 04 0d | 01 b8 0b 20 20 20 57 25 |. 8.....|...   W%|
|000003b0| 3d 30 0d 01 c2 08 20 20 | 20 f5 0d 01 cc 0d 20 20 |=0....  | .....  |
|000003c0| 20 20 20 42 25 3d 30 0d | 01 d6 0a 20 20 20 20 20 |   B%=0.|...     |
|000003d0| f5 0d 01 e0 27 20 20 20 | 20 20 20 20 e7 20 28 53 |....'   |    . (S|
|000003e0| 70 61 63 65 25 3f 57 25 | 20 80 20 28 31 3c 3c 42 |pace%?W%| . (1<<B|
|000003f0| 25 29 29 3c 3e 30 20 8c | 0d 01 ea 12 20 20 20 20 |%))<>0 .|....    |
|00000400| 20 20 20 20 20 50 25 2b | 3d 31 0d 01 f4 1c 20 20 |     P%+|=1....  |
|00000410| 20 20 20 20 20 20 20 e7 | 20 50 25 3d 52 65 71 75 |       .| P%=Requ|
|00000420| 65 73 74 25 20 8c 0d 01 | fe 4a 20 20 20 20 20 20 |est% ...|.J      |
|00000430| 20 20 20 20 20 49 25 3d | 28 28 57 25 2a 38 2b 42 |     I%=|((W%*8+B|
|00000440| 25 29 20 81 20 34 38 30 | 29 2a 32 33 31 30 20 2b |%) . 480|)*2310 +|
|00000450| 20 54 61 62 6c 65 5f 62 | 61 63 6b 25 28 28 57 25 | Table_b|ack%((W%|
|00000460| 2a 38 2b 42 25 29 20 83 | 20 34 38 30 29 20 2b 31 |*8+B%) .| 480) +1|
|00000470| 0d 02 08 27 20 20 20 20 | 20 20 20 20 20 20 20 f1 |...'    |       .|
|00000480| 20 22 50 72 69 6d 65 28 | 22 3b 50 25 3b 22 29 20 | "Prime(|";P%;") |
|00000490| 69 73 20 22 3b 49 25 0d | 02 12 0e 20 20 20 20 20 |is ";I%.|...     |
|000004a0| 20 20 20 20 cd 0d 02 1c | 0c 20 20 20 20 20 20 20 |    ....|.       |
|000004b0| cd 0d 02 26 10 20 20 20 | 20 20 20 20 42 25 2b 3d |...&.   |    B%+=|
|000004c0| 31 0d 02 30 21 20 20 20 | 20 20 fd 20 28 42 25 3e |1..0!   |  . (B%>|
|000004d0| 37 29 20 84 20 28 50 25 | 3d 52 65 71 75 65 73 74 |7) . (P%|=Request|
|000004e0| 25 29 0d 02 3a 0e 20 20 | 20 20 20 57 25 2b 3d 31 |%)..:.  |   W%+=1|
|000004f0| 0d 02 44 24 20 20 20 fd | 20 28 57 25 3e 57 6f 72 |..D$   .| (W%>Wor|
|00000500| 64 73 25 29 20 84 20 28 | 50 25 3d 52 65 71 75 65 |ds%) . (|P%=Reque|
|00000510| 73 74 25 29 0d 02 4e 06 | 20 cd 0d 02 58 04 0d 02 |st%)..N.| ...X...|
|00000520| 62 18 20 f1 20 91 3b 22 | 20 43 65 6e 74 69 53 65 |b. . .;"| CentiSe|
|00000530| 63 6f 6e 64 73 22 0d 02 | 6c 05 e0 0d 02 76 04 0d |conds"..|l....v..|
|00000540| 02 80 15 dd 20 f2 69 6e | 69 74 69 61 6c 69 7a 65 |.... .in|itialize|
|00000550| 62 69 74 73 0d 02 8a 12 | ea 20 49 25 2c 4a 25 2c |bits....|. I%,J%,|
|00000560| 42 79 74 65 73 25 0d 02 | 94 04 0d 02 9e 45 f4 20 |Bytes%..|.....E. |
|00000570| 4c 6f 6f 6b 75 70 20 54 | 61 62 6c 65 20 74 6f 20 |Lookup T|able to |
|00000580| 74 68 65 20 50 72 69 6d | 65 20 42 69 74 20 53 65 |the Prim|e Bit Se|
|00000590| 74 20 28 2d 31 29 20 3d | 20 4e 6f 74 20 50 72 69 |t (-1) =| Not Pri|
|000005a0| 6d 65 20 26 20 4e 6f 74 | 20 53 74 6f 72 65 64 0d |me & Not| Stored.|
|000005b0| 02 a8 40 f4 20 4c 6f 6f | 6b 75 70 20 54 61 62 6c |..@. Loo|kup Tabl|
|000005c0| 65 20 74 6f 20 67 65 74 | 20 62 61 63 6b 20 74 6f |e to get| back to|
|000005d0| 20 72 65 61 6c 20 62 69 | 74 73 20 66 72 6f 6d 20 | real bi|ts from |
|000005e0| 74 68 65 20 50 72 69 6d | 65 20 54 61 62 6c 65 0d |the Prim|e Table.|
|000005f0| 02 b2 04 0d 02 bc 19 20 | 20 de 20 54 61 62 6c 65 |....... | . Table|
|00000600| 5f 74 6f 25 28 32 33 31 | 30 2d 31 29 0d 02 c6 18 |_to%(231|0-1)....|
|00000610| 20 20 de 20 54 61 62 6c | 65 5f 62 61 63 6b 25 28 |  . Tabl|e_back%(|
|00000620| 34 38 30 29 0d 02 d0 04 | 0d 02 da 15 20 20 e3 20 |480)....|....  . |
|00000630| 49 25 3d 30 20 b8 20 32 | 33 31 30 2d 31 0d 02 e4 |I%=0 . 2|310-1...|
|00000640| 17 20 20 20 20 54 61 62 | 6c 65 5f 74 6f 25 28 49 |.    Tab|le_to%(I|
|00000650| 25 29 3d 30 0d 02 ee 0a | 20 20 ed 20 49 25 0d 02 |%)=0....|  . I%..|
|00000660| f8 10 20 20 e3 20 49 25 | 3d 31 20 b8 20 35 0d 03 |..  . I%|=1 . 5..|
|00000670| 02 35 20 20 20 20 e3 20 | 4a 25 3d 4b 6e 6f 77 6e |.5    . |J%=Known|
|00000680| 50 72 69 6d 65 25 28 49 | 25 29 20 b8 20 32 33 31 |Prime%(I|%) . 231|
|00000690| 30 20 88 20 4b 6e 6f 77 | 6e 50 72 69 6d 65 25 28 |0 . Know|nPrime%(|
|000006a0| 49 25 29 0d 03 0c 1c 20 | 20 20 20 20 20 54 61 62 |I%).... |     Tab|
|000006b0| 6c 65 5f 74 6f 25 28 4a | 25 2d 31 29 3d 2d 31 0d |le_to%(J|%-1)=-1.|
|000006c0| 03 16 0c 20 20 20 20 ed | 20 4a 25 0d 03 20 0a 20 |...    .| J%.. . |
|000006d0| 20 ed 20 49 25 0d 03 2a | 04 0d 03 34 0a 20 20 4a | . I%..*|...4.  J|
|000006e0| 25 3d 30 0d 03 3e 15 20 | 20 e3 20 49 25 3d 30 20 |%=0..>. | . I%=0 |
|000006f0| b8 20 32 33 31 30 2d 31 | 0d 03 48 1b 20 20 20 20 |. 2310-1|..H.    |
|00000700| e7 20 54 61 62 6c 65 5f | 74 6f 25 28 49 25 29 3d |. Table_|to%(I%)=|
|00000710| 30 20 8c 0d 03 52 1a 20 | 20 20 20 20 20 54 61 62 |0 ...R. |     Tab|
|00000720| 6c 65 5f 74 6f 25 28 49 | 25 29 3d 4a 25 0d 03 5c |le_to%(I|%)=J%..\|
|00000730| 1c 20 20 20 20 20 20 54 | 61 62 6c 65 5f 62 61 63 |.      T|able_bac|
|00000740| 6b 25 28 4a 25 29 3d 49 | 25 0d 03 66 0f 20 20 20 |k%(J%)=I|%..f.   |
|00000750| 20 20 20 4a 25 2b 3d 31 | 0d 03 70 09 20 20 20 20 |   J%+=1|..p.    |
|00000760| cd 0d 03 7a 0a 20 20 ed | 20 49 25 0d 03 84 04 0d |...z.  .| I%.....|
|00000770| 03 8e 1a f4 20 2d 2d 20 | 54 68 65 20 50 72 69 6d |.... -- |The Prim|
|00000780| 65 20 42 69 74 20 53 65 | 74 0d 03 98 04 0d 03 a2 |e Bit Se|t.......|
|00000790| 26 20 20 50 72 69 6d 65 | 73 25 20 2b 3d 20 32 33 |&  Prime|s% += 23|
|000007a0| 31 30 2d 28 50 72 69 6d | 65 73 25 20 83 20 32 33 |10-(Prim|es% . 23|
|000007b0| 31 30 29 0d 03 ac 2b 20 | 20 42 79 74 65 73 25 20 |10)...+ | Bytes% |
|000007c0| 3d 20 28 28 50 72 69 6d | 65 73 25 20 81 20 32 33 |= ((Prim|es% . 23|
|000007d0| 31 30 29 20 2a 20 34 38 | 30 29 20 81 20 38 0d 03 |10) * 48|0) . 8..|
|000007e0| b6 15 20 20 de 20 53 70 | 61 63 65 25 20 42 79 74 |..  . Sp|ace% Byt|
|000007f0| 65 73 25 0d 03 c0 19 20 | 20 e3 20 49 25 3d 30 20 |es%.... | . I%=0 |
|00000800| b8 20 42 79 74 65 73 25 | 20 88 20 34 0d 03 ca 1b |. Bytes%| . 4....|
|00000810| 20 20 20 20 53 70 61 63 | 65 25 21 49 25 3d 26 46 |    Spac|e%!I%=&F|
|00000820| 46 46 46 46 46 46 46 0d | 03 d4 0a 20 20 ed 20 49 |FFFFFFF.|...  . I|
|00000830| 25 0d 03 de 05 e1 0d 03 | e8 04 0d 03 f2 11 dd 20 |%.......|....... |
|00000840| f2 63 6c 72 62 69 74 28 | 4e 25 29 0d 03 fc 13 ea |.clrbit(|N%).....|
|00000850| 20 42 69 74 25 2c 57 25 | 2c 42 25 2c 49 25 0d 04 | Bit%,W%|,B%,I%..|
|00000860| 06 23 20 20 49 25 20 3d | 20 54 61 62 6c 65 5f 74 |.#  I% =| Table_t|
|00000870| 6f 25 28 28 4e 25 2d 31 | 29 20 83 20 32 33 31 30 |o%((N%-1|) . 2310|
|00000880| 29 0d 04 10 0f 20 20 e7 | 20 49 25 3e 3d 30 20 8c |)....  .| I%>=0 .|
|00000890| 0d 04 1a 28 20 20 20 20 | 42 69 74 25 20 20 3d 20 |...(    |Bit%  = |
|000008a0| 28 28 4e 25 2d 31 29 20 | 81 20 32 33 31 30 29 2a |((N%-1) |. 2310)*|
|000008b0| 34 38 30 20 2b 20 49 25 | 0d 04 24 15 20 20 20 20 |480 + I%|..$.    |
|000008c0| 57 25 20 3d 20 42 69 74 | 25 20 81 20 38 0d 04 2e |W% = Bit|% . 8...|
|000008d0| 15 20 20 20 20 42 25 20 | 3d 20 42 69 74 25 20 83 |.    B% |= Bit% .|
|000008e0| 20 38 0d 04 38 29 20 20 | 20 20 53 70 61 63 65 25 | 8..8)  |  Space%|
|000008f0| 3f 57 25 20 3d 20 53 70 | 61 63 65 25 3f 57 25 20 |?W% = Sp|ace%?W% |
|00000900| 80 20 ac 20 28 31 3c 3c | 42 25 29 0d 04 42 07 20 |. . (1<<|B%)..B. |
|00000910| 20 cd 0d 04 4c 05 e1 0d | 04 56 04 0d 04 60 12 dd | ...L...|.V...`..|
|00000920| 20 a4 72 65 61 64 62 69 | 74 28 4e 25 29 0d 04 6a | .readbi|t(N%)..j|
|00000930| 13 ea 20 42 69 74 25 2c | 57 25 2c 42 25 2c 49 25 |.. Bit%,|W%,B%,I%|
|00000940| 0d 04 74 23 20 20 49 25 | 20 3d 20 54 61 62 6c 65 |..t#  I%| = Table|
|00000950| 5f 74 6f 25 28 28 4e 25 | 2d 31 29 20 83 20 32 33 |_to%((N%|-1) . 23|
|00000960| 31 30 29 0d 04 7e 12 20 | 20 e7 20 49 25 3d 2d 31 |10)..~. | . I%=-1|
|00000970| 20 8c 20 3d a3 0d 04 88 | 26 20 20 42 69 74 25 20 | . =....|&  Bit% |
|00000980| 20 3d 20 28 28 4e 25 2d | 31 29 20 81 20 32 33 31 | = ((N%-|1) . 231|
|00000990| 30 29 2a 34 38 30 20 2b | 20 49 25 0d 04 92 13 20 |0)*480 +| I%.... |
|000009a0| 20 57 25 20 3d 20 42 69 | 74 25 20 81 20 38 0d 04 | W% = Bi|t% . 8..|
|000009b0| 9c 13 20 20 42 25 20 3d | 20 42 69 74 25 20 83 20 |..  B% =| Bit% . |
|000009c0| 38 0d 04 a6 29 20 20 e7 | 20 28 53 70 61 63 65 25 |8...)  .| (Space%|
|000009d0| 3f 57 25 20 80 20 28 31 | 3c 3c 42 25 29 29 3d 30 |?W% . (1|<<B%))=0|
|000009e0| 20 8c 20 3d a3 20 8b 20 | 3d b9 0d 04 b0 04 0d 04 | . =. . |=.......|
|000009f0| ba 14 dd 20 a4 6e 65 78 | 74 70 72 69 6d 65 28 4e |... .nex|tprime(N|
|00000a00| 25 29 0d 04 c4 10 ea 20 | 42 69 74 25 2c 57 25 2c |%)..... |Bit%,W%,|
|00000a10| 42 25 0d 04 ce 3b 20 20 | 42 69 74 25 20 3d 20 28 |B%...;  |Bit% = (|
|00000a20| 28 4e 25 2d 31 29 20 81 | 20 32 33 31 30 29 2a 34 |(N%-1) .| 2310)*4|
|00000a30| 38 30 20 2b 20 54 61 62 | 6c 65 5f 74 6f 25 28 28 |80 + Tab|le_to%((|
|00000a40| 4e 25 2d 31 29 20 83 20 | 32 33 31 30 29 0d 04 d8 |N%-1) . |2310)...|
|00000a50| 07 20 20 f5 0d 04 e2 0f | 20 20 20 20 42 69 74 25 |.  .....|    Bit%|
|00000a60| 2b 3d 31 0d 04 ec 15 20 | 20 20 20 57 25 20 3d 20 |+=1.... |   W% = |
|00000a70| 42 69 74 25 20 81 20 38 | 0d 04 f6 15 20 20 20 20 |Bit% . 8|....    |
|00000a80| 42 25 20 3d 20 42 69 74 | 25 20 83 20 38 0d 05 00 |B% = Bit|% . 8...|
|00000a90| 20 20 20 fd 20 28 53 70 | 61 63 65 25 3f 57 25 20 |   . (Sp|ace%?W% |
|00000aa0| 80 20 28 31 3c 3c 42 25 | 29 29 3c 3e 30 0d 05 0a |. (1<<B%|))<>0...|
|00000ab0| 34 3d 28 42 69 74 25 20 | 81 20 34 38 30 29 2a 32 |4=(Bit% |. 480)*2|
|00000ac0| 33 31 30 20 2b 20 54 61 | 62 6c 65 5f 62 61 63 6b |310 + Ta|ble_back|
|00000ad0| 25 28 42 69 74 25 20 83 | 20 34 38 30 29 20 2b 20 |%(Bit% .| 480) + |
|00000ae0| 31 0d 05 14 04 0d 05 1e | 14 dd 20 a4 70 72 65 76 |1.......|.. .prev|
|00000af0| 70 72 69 6d 65 28 4e 25 | 29 0d 05 28 10 ea 20 42 |prime(N%|)..(.. B|
|00000b00| 69 74 25 2c 57 25 2c 42 | 25 0d 05 32 3c 20 20 42 |it%,W%,B|%..2<  B|
|00000b10| 69 74 25 20 20 3d 20 28 | 28 4e 25 2d 31 29 20 81 |it%  = (|(N%-1) .|
|00000b20| 20 32 33 31 30 29 2a 34 | 38 30 20 2b 20 54 61 62 | 2310)*4|80 + Tab|
|00000b30| 6c 65 5f 74 6f 25 28 28 | 4e 25 2d 31 29 20 83 20 |le_to%((|N%-1) . |
|00000b40| 32 33 31 30 29 0d 05 3c | 07 20 20 f5 0d 05 46 0f |2310)..<|.  ...F.|
|00000b50| 20 20 20 20 42 69 74 25 | 2d 3d 31 0d 05 50 15 20 |    Bit%|-=1..P. |
|00000b60| 20 20 20 57 25 20 3d 20 | 42 69 74 25 20 81 20 38 |   W% = |Bit% . 8|
|00000b70| 0d 05 5a 15 20 20 20 20 | 42 25 20 3d 20 42 69 74 |..Z.    |B% = Bit|
|00000b80| 25 20 83 20 38 0d 05 64 | 20 20 20 fd 20 28 53 70 |% . 8..d|   . (Sp|
|00000b90| 61 63 65 25 3f 57 25 20 | 80 20 28 31 3c 3c 42 25 |ace%?W% |. (1<<B%|
|00000ba0| 29 29 3c 3e 30 0d 05 6e | 34 3d 28 42 69 74 25 20 |))<>0..n|4=(Bit% |
|00000bb0| 81 20 34 38 30 29 2a 32 | 33 31 30 20 2b 20 54 61 |. 480)*2|310 + Ta|
|00000bc0| 62 6c 65 5f 62 61 63 6b | 25 28 42 69 74 25 20 83 |ble_back|%(Bit% .|
|00000bd0| 20 34 38 30 29 20 2b 20 | 31 0d 05 78 04 0d 05 82 | 480) + |1..x....|
|00000be0| 18 dd 20 a4 70 72 65 76 | 70 72 69 6d 65 70 6c 75 |.. .prev|primeplu|
|00000bf0| 73 28 4e 25 29 0d 05 8c | 10 ea 20 42 69 74 25 2c |s(N%)...|.. Bit%,|
|00000c00| 57 25 2c 42 25 0d 05 96 | 23 20 20 c8 95 20 54 61 |W%,B%...|#  .. Ta|
|00000c10| 62 6c 65 5f 74 6f 25 28 | 28 4e 25 2d 31 29 20 83 |ble_to%(|(N%-1) .|
|00000c20| 20 32 33 31 30 29 3c 30 | 0d 05 a0 0f 20 20 20 20 | 2310)<0|....    |
|00000c30| 4e 25 20 2d 3d 20 31 0d | 05 aa 07 20 20 ce 0d 05 |N% -= 1.|...  ...|
|00000c40| b4 3c 20 20 42 69 74 25 | 20 20 3d 20 28 28 4e 25 |.<  Bit%|  = ((N%|
|00000c50| 2d 31 29 20 81 20 32 33 | 31 30 29 2a 34 38 30 20 |-1) . 23|10)*480 |
|00000c60| 2b 20 54 61 62 6c 65 5f | 74 6f 25 28 28 4e 25 2d |+ Table_|to%((N%-|
|00000c70| 31 29 20 83 20 32 33 31 | 30 29 0d 05 be 13 20 20 |1) . 231|0)....  |
|00000c80| 57 25 20 3d 20 42 69 74 | 25 20 81 20 38 0d 05 c8 |W% = Bit|% . 8...|
|00000c90| 13 20 20 42 25 20 3d 20 | 42 69 74 25 20 83 20 38 |.  B% = |Bit% . 8|
|00000ca0| 0d 05 d2 20 20 20 c8 95 | 20 28 53 70 61 63 65 25 |...   ..| (Space%|
|00000cb0| 3f 57 25 20 80 20 28 31 | 3c 3c 42 25 29 29 3d 30 |?W% . (1|<<B%))=0|
|00000cc0| 0d 05 dc 0f 20 20 20 20 | 42 69 74 25 2d 3d 31 0d |....    |Bit%-=1.|
|00000cd0| 05 e6 15 20 20 20 20 57 | 25 20 3d 20 42 69 74 25 |...    W|% = Bit%|
|00000ce0| 20 81 20 38 0d 05 f0 15 | 20 20 20 20 42 25 20 3d | . 8....|    B% =|
|00000cf0| 20 42 69 74 25 20 83 20 | 38 0d 05 fa 07 20 20 ce | Bit% . |8....  .|
|00000d00| 0d 06 04 34 3d 28 42 69 | 74 25 20 81 20 34 38 30 |...4=(Bi|t% . 480|
|00000d10| 29 2a 32 33 31 30 20 2b | 20 54 61 62 6c 65 5f 62 |)*2310 +| Table_b|
|00000d20| 61 63 6b 25 28 42 69 74 | 25 20 83 20 34 38 30 29 |ack%(Bit|% . 480)|
|00000d30| 20 2b 20 31 0d ff       |                         | + 1..  |        |
+--------+-------------------------+-------------------------+--------+--------+